SuperHack/SuperHack CD.bin/SCRIPTZ/ADDONS.ZIP/BAZ_SEEN.TXT

Text File | 1997-01-12 | 6KB | 75 lines

This script will be a part of []baz▀ot[] v2.╪ made by Ronny 1997⌐

This Seen Script is NOT a global seen script, it will work ONLY if you
   use the popup to add people to your " seen recorder " and it will be
   triggerd when someone will type " .seen nick " .
This Seen Script is prabobly the BEST seen script out there so have fun :)

P.S. The Reason that i'm saying that this is prabobly the best seen script
     out there... is because it is totaly leach proof, NO MORE:
     Imposters, .seen myself, .seen YOU, nick changing and so on
     This seen script just CANT be foold! he it will know it all!

P.P.S. This Seen Script has an option to add "Forbiden Words"
       That people Wont be able to use in the seen script.
       ei.. .seen it , .seen woman . . .
       You will be able to add to the "Forbiden Words" list by using the
       popup " Add a "Bad Word" " .


*** IMPORTENT *** This Script Will Auto Remove The "[ ]" iN The Nicks!
                  So iF You Are Looking For [Tohma] AND [Tohma] IS on
                  Your Data Base You Will Have To Use " .seen Tohma "
                  Because The "[ ]"'s Are Screwing The iNi Files.

   And One Last Thing . . . This Script is Not ment for "newbies"
    so if you Dont know what you are doing, Dont do it =)

*** NOTE IAL MUST be checked ! ***

*** mIRC v4.7 ONLY ***

All you need to do is to add the folowing in to the indicated section of tools

Remote / Events:

1:on join:#: { if ($nick == $me) { echo 4 -a *** Updating IAL List For _- $chan -_ *** | who $chan } | else { halt } }
100:on part:#: { %Search = $readini $mircdir $+ seen.ini address $address($nick,3) | writeini $mircdir $+ seen.ini lastsaw $remove($remove(%Search,[),]) $nick Parted $chan | writeini $mircdir $+ seen.ini time $remove($remove(%Search,[),]) $ctime }
1:on kick:#: {
 if ($level($address($knick,3)) == 100) { %Search = $readini $mircdir $+ seen.ini address $address($knick,3) | writeini $mircdir $+ seen.ini lastsaw $remove($remove(%Search,[),]) $knick Was Kicked from $chan by $nick | writeini $mircdir $+ seen.ini time $address $remove($remove(%Search,[),]) $ctime }
 else { halt }
}
100:on quit: { %Search = $readini $mircdir $+ seen.ini address $address($nick,3) | writeini $mircdir $+ seen.ini lastsaw $remove($remove(%Search,[),]) $nick Quited IRC With ( $+ $parms $+ ) as a Quit Line. | writeini $mircdir $+ seen.ini time $remove($remove(%Search,[),]) $ctime }

1:on text:.seen*:#: {
  ignore -u5 $wildsite
  if ($readini $mircdir $+ bad.ini badwords $parm2 != $null) { notice $nick !┐Seen?í Oh Come On... Dont Be a Lamer! | halt }
  %look = op $parm2
  %lastime = $ctime - [ $readini $mircdir $+ seen.ini time $parm2 ] | %hedid = $readini $mircdir $+ seen.ini lastsaw $parm2
  if ($parm2 == $me) { notice $nick !┐Seen?í Dont Be a Lamer... I am Right here (Doh!) | halt }
  if (($seenlist($parm2) != %look) || ($seenlist($parm2) == $null))  { notice $nick !┐Seen?í I Dont know any $parm2 $+ . | halt }
  elseif ($parm2 == $nick) {
    if ($realone($address($parm2,3)) == %look) { notice $nick !┐Seen?í ummm i dont know where $parm2 is... what do u think? | halt }
  elseif ($realone($address($parm2,3)) != %look) { notice $nick !┐Seen?í I Last Saw $parm2 $duration(%lastime) ago, When %hedid | notice $nick Please Change your Nick Now! you are NOT $parm2 !! | halt } }
  if ($parm2 ison $chan) {
    if ($realone($address($parm2,3)) == %look) { notice $nick !┐Seen?í umm $parm2 is Right Here !! are you laged or something?? }
  elseif ($realone($address($parm2,3)) != %look) { notice $nick !┐Seen?í I Last Saw $parm2 $duration(%lastime) ago, When %hedid (alltho there is someone who is using $parm2 $+ 's nick at this moment.) }  }
  else {
    if ($realone($address($nick,3)) == %look) { notice $nick !┐Seen?í Hey $parm2 Are you Trying to find your self ? Nick Change wont help you, i know you are here :P }
  elseif ($seenlist($parm2) == %look)  { %cseen = $chan | %cnick = $nick | %clok = $parm2 | s.chan | notice $nick !┐Seen?í I Last Saw $parm2 $duration(%lastime) ago, When %hedid } }
}

Aliases:

s.chan { %c.n = 0 | :chans | if (%c.n > $chan(0)) { goto final } | else { %i = 0 | inc %c.n | goto start } | :start | inc %i | if (%i > $nick(0,$chan(%c.n))) { goto chans } | elseif (($realone($address($nick(%i,$chan(%c.n)),3)) == %look) && (%clok !ison %cseen)) { notice %cnick !┐Seen?í %clok is in The Channel _- $chan(%c.n) -_ Right Now and known as " $nick(%i,$chan(%c.n)) " . | halt } | elseif (($realone($address($nick(%i,$chan(%c.n)),3)) == %look) && (%clok ison %cseen)) { notice %cnick !┐Seen?í %clok is in The Channel Right Now and known as " $nick(%i,$chan(%c.n)) " . | halt } | else { goto start } | :final | return }
seenlist { return $readini $mircdir $+ seen.ini seeing $1  }
realone { return $readini $mircdir $+ seen.ini real $1 }

Popups:

Seen
.Add To Slist:/writeini $mircdir $+ seen.ini address $address($$1,3) $remove($remove($$1,[),]) | writeini $mircdir $+ seen.ini seeing $remove($remove($$1,[),]) op $remove($remove($$1,[),]) | writeini $mircdir $+ seen.ini real $address($$1,3) op $remove($remove($$1,[),]) | guser 100 $$1 3 | /echo 4 ** $remove($remove($$1,[),]) at $address($$1,3) was placed in seen.ini And a record of $$1 will be saved. **
.Remove From Slist:/writeini $mircdir $+ seen.ini seeing $remove($remove($$1,[),]) Dont Know $remove($remove($$1,[),]) Anymore | writeini $mircdir $+ seen.ini real $address($$1,3) Dont Know $remove($remove($$1,[),]) Anymore | /echo 4 ** $remove($remove($$1,[),]) at $address($$1,3) was removed from seen.ini ! , you are no more keeping record of this person. **
.Add a "Bad Word":/set %bword $$?="Enter a 'Bad Word'" | writeini $mircdir $+ bad.ini badwords %bword Forbiden! | echo 4 *** Just Added %bword in to the "Bad Words" List That Cant Be Used iN The Seen Script.